home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / CPBSL.z / CPBSL
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. CCCCPPPPBBBBSSSSLLLL((((3333FFFF))))                                                            CCCCPPPPBBBBSSSSLLLL((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      CPBSL   - CPBSL solves the complex Hermitian positive definite band
  10.      system  A*X = B using the factors computed by CPBCO or CPBFA.
  11.  
  12.  
  13. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  14.       SUBROUTINE CPBSL(ABD,LDA,N,M,B)
  15.  
  16. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  17.      On Entry
  18.  
  19.      AAAABBBBDDDD COMPLEX(LDA, N)
  20.         the output from CPBCO or CPBFA.
  21.  
  22.      LLLLDDDDAAAA INTEGER
  23.         the leading dimension of the array  ABD .
  24.  
  25.      NNNN INTEGER
  26.         the order of the matrix  A .
  27.  
  28.      MMMM INTEGER
  29.         the number of diagonals above the main diagonal.
  30.  
  31.      BBBB COMPLEX(N)
  32.         the right hand side vector.  On Return
  33.  
  34.      BBBB the solution vector  X . Error Condition
  35.  
  36.      AAAA division by zero will occur if the input factor contains a zero on the
  37.      diagonal.  Technically this indicates singularity but it is usually
  38.      caused by improper subroutine arguments.  It will not occur if the
  39.      subroutines are called correctly and  INFO .EQ. 0 .  To compute
  40.      INVERSE(A) * C  where  C  is a matrix with  P  columns
  41.         CALL CPBCO(ABD,LDA,N,RCOND,Z,INFO)
  42.         IF (RCOND is too small .OR. INFO .NE. 0) GO TO ...
  43.         DO 10 J = 1, P
  44.         CALL CPBSL(ABD,LDA,N,C(1,J)) 10 CONTINUE LINPACK.  This version dated
  45.      08/14/78 .  Cleve Moler, University of New Mexico, Argonne National Lab.
  46.      Subroutines and Functions BLAS CAXPY,CDOTC Fortran MIN0
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.